% sentence(Parse,[tu3, la5nh, sharp, SJ16VSL, co1, ki1ch, thu7o71c, la2, bao, nhie6u],[]).
% tủ_lạnh/máy_lạnh/tủ_đông sharp/samsung/lg xxx/yyy/zzz có kích thước/ công suất/ giá bán (là bao nhiêu?)
% tủ lạnh sharp SJ16VSL có kích thước là bao nhiêu?
% tu lanh sharp sj16vsl co kich thuoc la?
% tu lanh sj16vsl co kich thuoc la?
% tu lanh sj16vsl co kich thuoc la bao nhieu?
% tu3 la5nh/ tu3 d9o6ng/ ma1y la5nh/ d9ie62u hoa2 sharp SJ16VSL co1 ki1ch thu7o71c/ co6ng sua61t/ gia1 ba1n la2 bao nhie6u

sentence(s(NP,VP))-->np(NP),vp(VP).

% cum danh tu
np(np(N_sp, NE))-->n_sp(N_sp), ne(NE).

% cac loai san pham
n_sp(n_sp('tu3 la5nh'))-->[tu3, la5nh].
n_sp(n_sp('tu3 d9o6ng'))-->[tu3, d9o6ng].
n_sp(n_sp('tu3 ma1t'))-->[tu3, ma1t].
n_sp(n_sp('ma1y la5nh'))-->[ma1y, la5nh].
n_sp(n_sp('ma1y gia85t'))-->[ma1y, gia85t].
n_sp(n_sp('d9ie62u ho2a'))-->[d9ie62u, ho2a].

ne(ne(N_hsx, Pron_sp))-->n_hsx(N_hsx),!,pron_sp(Pron_sp).
ne(Pron_sp)-->pron_sp(Pron_sp).

% cac hang san xuat
n_hsx(n_hsx(panasonic))-->[panasonic].
n_hsx(n_hsx(daikin))-->[daikin].
n_hsx(n_hsx(lg))-->[lg].
n_hsx(n_hsx(samsung))-->[samsung].
n_hsx(n_hsx(mitsubishi))-->[mitsubishi].
n_hsx(n_hsx(electrolux))-->[electrolux].
n_hsx(n_hsx(sharp))-->[sharp].
n_hsx(n_hsx(sanyo))-->[sanyo].
n_hsx(n_hsx(hitachi))-->[hitachi].
n_hsx(n_hsx(gree))-->[gree].

pron_sp(pron_sp(H))-->[H].

% cum dong tu
vp(vp(V, NP))-->v(V),np1(NP).

v(v(co1))-->[co1].

np1(np1(N_tuhoi,R))-->n_tuhoi(N_tuhoi),r(R).
np1(N_tuhoi)-->n_tuhoi(N_tuhoi).

% cac tu hoi
n_tuhoi(n_tuhoi('ki1ch thu7o71c'))-->[ki1ch, thu7o71c].
n_tuhoi(n_tuhoi('co6ng sua61t'))-->[co6ng, sua61t].
n_tuhoi(n_tuhoi('gia1 ba1n'))-->[gia1, ba1n].


r(r(W_la, W_baonhieu))-->w_la(W_la),w_baonhieu(W_baonhieu),!.
r(W_la)-->w_la(W_la).
r(W_baonhieu)-->w_baonhieu(W_baonhieu).

w_la(la2)-->[la2].
w_baonhieu('bao nhie6u')-->[bao, nhie6u].